program Project1; //Zadanie 3.20

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=10;

var
 wiersze, kolumny : Integer;

begin
 Writeln('Program wyswietla tabliczke mnozenia dla liczb od 1 do 100.');
 Writeln;
 wiersze:=1;

 repeat
  kolumny:=1;
  repeat
   Write(wiersze*kolumny, #9);
   kolumny:=kolumny+1;
  until (kolumny>n);
  Writeln;
  wiersze:=wiersze+1;
 until (wiersze>n);

 Readln; //czeka na nacisniecie klawisza Enter
end.
